﻿Public Class ForcaDaSenha

    Protected Const SENHA_MUITO_FRACA As String = "Senha muito fraca"
    Protected Const SENHA_FRACA As String = "Senha fraca"
    Protected Const SENHA_MEDIA As String = "Senha Média"
    Protected Const SENHA_FORTE As String = "Senha forte"
    Protected Const SENHA_MUITO_FORTE As String = "Senha muito forte"
    Protected Const SENHA_FORTISSIMA As String = "Senha fortíssima"

    Public Function ImprimeDescricaoDaNotaDaSenha(ByVal _nota As Integer) As String

        Select Case _nota

            Case _nota > 0 And _nota <= 20
                Return SENHA_MUITO_FRACA
            Case _nota > 20 And _nota <= 40
                Return SENHA_FRACA
            Case _nota > 40 And _nota <= 60
                Return SENHA_MEDIA
            Case _nota > 60 And _nota <= 80
                Return SENHA_FORTE
            Case _nota > 80 And _nota <= 97
                Return SENHA_MUITO_FORTE
            Case _nota > 97
                Return SENHA_FORTISSIMA
        End Select
        Return String.Empty

    End Function

End Class